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- SEND MESSAGE SYSTEM SERVICES 16-SEP-1984 02:35:36 VAX/VMS Macro V04-00 


EXESSNDACC = SEND MESSAGE TO ACCOUNT MANAGER 

EXESSNDSMB = SEND MESSAGE TO SYMBIONT MANAGER 

EXESS = SEND MESSAGE TO OPERATOR MAILBOX 
rita ob oa SUBROUTINE 

File Ress check 

SEND ESSA 

EXESOPRSNDERL = OPERATOR peNe MESSAGE TO ERROR LOGGER 
EXESNETSNDERL - peter S$ sa0ee TO ERROR LOGGER 
EXESSNDERL = SEND M E TO ERROR 

SETOPR = set OPR bie in device UCB 


SYSSNDOMSG - SEND MESSAGE SYSTEM SER ° 
VOL=000 enc halnel cap sar "SSEp=198e 88:57:06 ESE YSRCHEEENOSccman:1 728° 


TITLE $YSSNDOMSG = SEND MESSAGE SYSTEM SERVICES 
IDENT *Vbe~000" 


, ebaeneunenensnnebeobecesensestnneennenenseneneeeenenebeesotosoessosooerences 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
& 
® 
® 
® 
TRANSFERRED. * 
* 
® 
fr 
*® 
* 
® 
® 
& 
* 
® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


COOoOooooooooooooooooooo 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


. . . 7. 
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p++ 
: FACILITY: 

STARLET SYSTEM SERVICE 
ABSTRACT: 

COMMON MODULE FOR SEND TO OPERATOR AND SYMBIONT MANAGER. 
AUTHOR: R.HEINEN, CREATION DATE: 11-JUL-77 
MODIFIED BY: 
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v03-010 LnPO1sS L. Mark Pilant 20-Jan-1984 10:57 
Track interface changes to EXESCHKxxXACCES. 
v03-009 ACG0354 Andrew C. Goldstein, 19-Sep-1983 15:19 
Use alternate access mask to validate delete access 
v03-008 cuizone CW Hobbs Ay _B°Ro get 
UDGE = change AIRS ACCESS_MASK to DUMMY_O to get the 
build working. Symbol was deleted. 
v03-007 MLJ0118 Martin L. Jack, 22-Aug-1983 9:39 
Guard against ett resultant filename. 
V03-006 MLJ0115 artin L. Jack, 29-Jul-1983 14:30 
Update for new tite protection handling. 
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VO3-005 CwWwH1002 Alan D. FLaridpe 31-May-1983 
Change BSBW to JSB in call to ERLSALLOCMB and yERLSRELEASEMB. 


Vv03-004 meen CW Hobbs 24-Feb-1983 
Use extended pid ond owner in the message. 


V03-003 RNGOO03 Rod N. Gamache 2-Feb-1983 
Use longword displacenents where needed. 


v03-002 ote | Kathleen D. Morse 28-Jun-1982 
Added S$PRDEF. 


oon -PSECT YSEXEPAGED 
3 3; EXTERNAL SYMBOLS 
80 SACMDEF ; DEFINE ACCOUNTING ign OFFSETS 
000 SARMDEF 3; Define pecese 4 hts mask 
B88 SATRDEF 3; Define ACP a ute codes 
00 SCCBDEF 3; DEFINE CHANNEL. cout tot BLOCK 
O60 SDEVDEF ; DEFINE DEVICE CHARACTERISTICS 
00 SEMBDEF SS ; DEFINE ERROR MESSAGE BUFFER OFFSETS 
000 SFATDEF 3; Define RMS file attribute offsets 
000 $F IBDEF 3; Define file information block offsets 
000 SIODEF 3; Define 1/0 function codes 
SMSGDEF ; DEFINE MESSAGE TYPES 
DEF ; DEFINE OPERATOR MESSAGES 
OPCMSG ; OPERATOR COMMUNICATIONS MESSAGES 
SPCBDEF ; DEFINE PCB 
SPHDDEF ; DEFINE PROCESS HEADER OFFSETS 
SPRDEF ; DEFINE PROCESSOR ane NUMBERS 
SPRVDEF ; DEFINE PRIVILEGE M a 
SSMRDEF ; Define SSNDSMB function codes 
SSDEF ; DEFINE SYSTEM STATUS RETURN CODES 
SUCBDEF ; DEFINE UCB 
SIPLOEF ; DEFINE IPL CONSTANTS 
SRSNDEF ; DEFINE RESOURCE NUMBERS 
; LOCAL SYMBOLS 


The messages sent by SSNDACC, SSNDERR, and $SNDOPR consist of 
a common header followed by the user Specified message. The 
common header has the following format: 


-WORD <message Box 

- WOR <reply ma x sphannet #> 

-QUAD <sender's vilege mask> 

-LONG <sender's 1c> 

-BLKB <sender's USERNAME. % bytes, blank filled> 
-BLKB <sender's ACCOUNT ; bytes, blank filled> 
-BYTE <sender's base priority 

-BYTE <unused> 


| DODO DODOOOSO0 0000000000009 00 09 0909 09 09 09 09 SIN NIN NINN NIIP AAA AAAAOOUM 
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v04-000 


| 
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00000026 


04 01 02 00 00 00 00 00 00 00 00 00 
00'00°00'00"00'00'00'00' 00° : 60 
02 00 04 00 FF FE 00 018 o ‘e 
; 3 FF FF 
0 00 00 00 


1 
00 00 00 02 00 00 00 00 


COMMON HDR=38 


"SSEp=1986 O8:S7ice US¥svoacis 


3; Common header size 


: Option size table to allow scanning of options List 


OPTION_SIZE: 


-BYTE 
-BYTE 
-BYTE 


0,0,0,0,0,0,0,0,0,2,1,4,-1,0,0,0 
0(16) 
8,0,1,1,1,0,-2,-1,0,4,0,2,0,2,0,16 
-1,°1,0,0,0,0,0,0,2,0,0,0,0,0,0,0 


v04-00 
SSN DMSG.MAR;1 
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v04=000 EXESSNDACC = SEND MESSAGE TO ACCOUNT MAN 5-SEP=1984 03:57:44 L[SYS.SRCJSYSSNDMSG.MAR; 1 (2) voi 

4 8 A. .SBTTL EXESSNDACC = SEND MESSAGE TO ACCOUNT MANAGER 
4 p : EXESSNDACC = SEND MESSAGE TO ACCOUNT MANAGER 
4 gi > FUNCTIONAL DESCRIPTION: 
40 134 THIS ROUTINE PROVIDES THE SEND TO ACCOUNT MANAGER MAILBOX SYSTEM SERVICE. 
40 135 ; THE ACTION IS TO BUILD A MESSAGE CONSISTING OF A COMMON HEADER 
40 1 gi ; AND THE USER SPECIFIED TEXT AND THEN SEND IT TO THE JOB CONTROLLER MAILBOX. 
40 137 ; tHE SP ECIFIED, MESSAGE IS ADDRESSED CHECKED AND THE REQUEST REPLY MAILBOX 
4 8 : IS CHECKED FOR BEING A MAILBOX AND ACCESSIBLE TO THE PROCESS. 
49 140 : INPUTS: 
04 148 ; MSG(AP) = ADDRESS OF THE QUADWORD DESC FOR THE MESSAGE TEXT. 
Be 1e7 3 MBX(AP) = CHANNEL NUMBER OF THE MAILBOX FOR THE REPL 
040 145 : OUTPUTS: 

0949 149 : RO = STATUS OF THE OPERATION 

abe3 149 : STATUS CODES RETURNED: 
040 151: SS$_NORMAL = SUCCESSFUL OPERATION 

0040 138 : SSSINSFMEM = INSUFFICIENT MEMORY FOR THE REQUEST 

0060 153: SS$-ACCVIO = ACCESS VIOLATION ON BUFF 

9040 154 : SSS"NOPRIV = PROCESS DOES NOT HAVE READ ACCESS TO SPECIFIED MAILBOX 
040 155: SS$"IVCHAN = SPECIFIED CHANNEL INVAL 

0040 156: SS$"DEVNOTMBX = SPECIFIED CHANNEL IS NOT TO MAILBOX 

0060 157: SS$"BADPARAM = MESSAGE SIZE ERR 

0040 158: SS$"MBTOOSML = MESSAGE EXCEEDS MAILBOX SIZ= 

0049 139 : SSS"DEVOFFLIN = DEVICE OFFLINE 

9040 161 EXESSNDACC:: SEND TO ACCOUNTING MANAGER 

OFFC 0040 168 .WORD “M<R2, R3, R4,R5,R6,R7,R8, ko R10,R11> 
5B OA. SOA 0042 16 MOVZBL #MSG$ SNDACC,RI1 : SET RE SSAGE TYPE CODE 
55 QO000000'EF 9E 0045 164 MOVAB  SYS$G * NODE TRE. RS : ADDRESS TARGET MAILBOX 
57. 00C8 SBF 3C 004C 165 MOVZWL ; : SET MAXIMUM MESSAGE SIZE 
2A 11 «0051~=—s:166 B BUILOMSG : CONTINUE IN COMMON 
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+ ~SBTTL EXESSNDSMB - SEND MESSAGE TO SYMBIONT MANAGER 
; EXESSNDSMB - SEND MESSAGE TO SYMBIONT MANAGER 


ES 
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; ; FUNCTIONAL DESCRIPTION: 


SSNS NIOO OT 


OODOOCOCOOCOOOCOO 


CGOOOCCOCOCOOCOCOOCOOOOOOOOOCOOOoOoOO 


; : STATUS CODES RETURNED: 
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Ta, ROUTINE Paov iors THE SEND TO SYMB 


cay: MAILBOX SYSTEM SERVICE. 
ACTION IS TO BUILD A oy cone ION HEADER 


OF A_COMM 

T TO_THE JOB CONTROLLER MAILBOX. 
AND THE REQUEST REPLY MAILBOX 
LE TO THE PROCESS. 


INPUTS: 


MSG 
MBX 


: OUTPUTS: 
RO = STATUS OF THE OPERATION 


(AP) = ADDRESS OF THE QUADWORD DESC FOR THE MESSAGE TEXT. 
(AP) = CHANNEL NUMBER OF THE MAILBOX FOR THE REPLY. 


SS$_NORMAL = SUCCESSFUL OPERATION 
SS$-INSFMEM = INSUFFICIENT MEMORY FOR THE REQUEST 
SS$"ACCVIO = ACCESS VIOLATION ON BUFFER 
SS$S"NOPRIV = PROCESS DOES NOT HAVE AREAD ACCESS TO SPECIFIED MAILBOX 
SS$"IVCHAN = SPECIFIED CHANNEL INV 
SS$"DEVNOTMBX = SPECIFIED HARNEL” ts NOT TO MAILBOX 
SS$"BADPARAM = MESSAGE SI 
SS$"MBTOOSML = MESSAGE EX 
SS$“DEVOFFLIN = DEVICE OFFLINE 

EXESSNDSMB: : SEND TO SYMBIONT MANAGER 
. WORD aicR2, R3,R4,R5.R6,R7,RB, R9 R10,R11> 
MOVZBL #MSG$ SNOSMB,RI1 ; SET MESSAGE TYPE CODE 
MOVAB SYSSGL gy o8t TLMB,RS : SET ADDRESS OF MAILBOX 
MOVZWL : SET MAXIMUM MESSAGE SIZE 
BRB SUILDASE : CONTINUE IN COMMON 
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i+ ~SBTTL EXESSNDOPR = SEND MESSAGE TO OPERATOR MAILBOX 
; EXESSNDOPR = SEND MESSAGE TO OPERATOR MAILBOX 
; ; FUNCTIONAL DESCRIPTION: 


: THIS Soy ine Peov lets THE SEND TO 0 
THE ACTION IS TO BUILD A MESSAGE CO 


H 
; THE SPECIFIED MESSAGE IS ADDRESSED 
IS CHECKED FOR BEING A MAILBOX AND 


INPUTS: 


MSG 
MBX 


; OUTPUTS: 
RO = STATUS OF THE OPERATION 
: : STATUS CODES RETURNED: 


+ W: SYSTEM SERVICE. 
OF A_COMMON ny aris 

TO_THE OPERATOR MAILBOX. 
ND_THE REQUEST. REPLY MAILBOX 
E TO THE PROCESS. 


= ADDRESS OF THE QUADWORD DESC FOR THE MESSAGE TEXT. 


AP) 
P) = CHANNEL NUMBER OF THE MAILBOX FOR THE REPLY. 


( 
(A 


SS$_NORMAL = SUCCESSFUL OPERATION 

S"IVCHAN = SPECIFIED CHANNEL INVALID 
SS$"MBTOOSML - MESSAGE EXCEEDS MAILBOX SIZE 
OPCS_NOPERATOR = NO OPERATOR COVERAGE 

LINSFMEM = INSUFFICIENT MEMORY FOR THE REQUEST 
SS$-ACCVIO = ACCESS VIOLATION ON BUFFER 
SS$_NOPRIV = PROCESS DOES NOT HAVE READ ACCESS TO SPECIFIED MAILBOX 
SS$-DEVNOTMBX = SPECIFIED CHANNEL IS NOT 1O MAILBOX 
SS$"BADPARAM = MESSAGE SIZE ERROR 
EXESSNDOPR: : SEND TO OPERATOR 

WORD “M<R2,R3,R4,R5,R6,R7,R8, Rg R10,R11> 
MOVZBL #MSG$ OPRQST,RI1 ; $ET MESSAGE TYPE CODE 
MOVAB i183: oP RnB Re : SET ADDRESS OF MAILBOX 
MOVZWL #<1024=COMMON.HDR>.R7 =: SET MAXIMUM USER MESSAGE SIZE 
BRB BUILDMSG > CONTINUE IN COMMON 
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«-SBTTL BUILD MESSAGE SUBROUTINE 
BUILDMSG = BUILD MESSAGE ROUTINE FOR EXESSNDOPR/EXESSNDSMB 
FUNCTIONAL DESCRIPTION: 
pe be ROUTING BUILDS THE REQUESTED MESSAGE ON THE EXEC STACK 


D ENTERS A KERNEL MODE ROUTINE TO PERFORM THE MAILBOX VALIDATION 
AND SEND THE MESSAGE. 


Sosoooooooees 


So 


WOWOOOOOOOOOOOONOONO wm 


S 
49 ; 
i; 
| om 
38 : INPUTS: 
60 : MSG(AP) = ADDRESS OF THE MESSAGE DESCRIPTER 
0 61 : MBX(AP) = CHANNEL NUMBER OF THE REPLY MAILBOX IF ANY 
j ; R = MAILBOX UCB ADDRES 
07 63 : R7 = MAXIMUM RESSACE SIZE 
07 64 : R11 = MESSAGE TYPE 
079 265: 
079 96 3 OUTPUTS: 
079 67 ; 
079 68 ; RO = STATUS OF THE OPERATION 
0079 79 : STATUS CODES RETURNED: 
0079 fe ; SS$_NORMAL = SUCCESSFUL OPERAT 
0079 273: SS$~ IVCHAN - SPECIFIED CHANNEL INVALID 
0079 274: SS$"MBTOOSML = MESSAGE EXCEEDS MAILBOX SIZE 
0079 275: SS$"DEVOFFLIN = DEVICE OFFLINE 
0079 2 : SSS"INSFMEM = INSUFFICIENT MEMORY FOR THE REQUEST 
0079 277: SS$"ACCVIO = ACCESS VIOLATION ON BUFFER 
0079 78: SS$"NOPRIV = PROCESS DOES NOT HAVE READ ACCESS TO SPECIFIED MAILBOX 
079 279: OR THE MESSAGE REQUEST TYPE REQUIRES THE OPERATOR PRIV. 
0079 0: SS$_DEVNOTMBX = SPECIFIED CHANNEL IS NOT TO MAILBOX 
079 13 SS$"BADPARAM = MESSAGE SIZE ERROR 
079 ¢ ®oco 
079 283 BADPARAM: 
50 14 3¢ 0079 4 MOVZWL #SS$_BADPARAM,RO ; SET BAD PARAM ERROR 
04 O07¢ 5 ERROR: RET : ERROR RETURN 
0070 6 BUILDMSG: : BUILD MESSAGE 
07D 8 : MINIMIZE THE ALLOWABLE MESSAGE SIZE WITH 
7 3 ; THE SYSTEM MAXBUF PARAMETER. 
57 00000000" EF 81 o7D 91 tmpw LOCSGU_MAXBUF .R7 : COMPARE MAX MSG SIZE AGAINST SYS MAX 
7 ‘1€ 4 3 BGEQU : BRANCH IF SYSTEM MAX GREATER 
57 Q0000000'EF  3¢ 6 95 MOVZWL 10C$GW_MAXBUF ,R7 : SET MAXBUF AS MSG LIMIT 
p 95 : CHECK THE INPUT PARAMETERS 
51 04 ac 09 D 39 10$ MOVL MSG(AP),R1 > GET MESSAGE DESCRIPTER 
1 } 38 BEQL BADPA : IF EQL THEN NO MESSAGE AND ERROR 
00000000" GF 16 009 9 JSB G*EXESPROBER_DSC : PROBE DESCRIPTOR AND BUFFER 
£0 50 «£9 99 : BLBC _——- RO, ERROR : BRANCH IF ERROR 
9¢ 3 > R1<0:15> = SIZE, R2 = ADDRESS OF BUFFER 
59 52 pO 009¢ 4 MOVL  _—R2,RO : SAVE ADDRESS OF BUFFER 


SYSSNDMSG = SEND MESSAGE SYSTEM SERVICES 16-SEP-1984 02:35:36 VAX/VMS Macro V04-00 P 
04-000 BUILD MESSAGE SUBROUTINE BSE E lobe KSieriee LENSES Gecce voscoo ., «Page 8, 
58S 9F 5 MOVZWL R1,R8 ; GET SIZE OF MESSAGE 
p i$ A : EQL Renn : IF €QL THEN ILLEGAL 
57 3 A CMP + LEGAL SIZE? 
p A 00A 3 BGTRU : IF GTRU THEN NO 
04 ; 8] ay cHPW Bab Panscs. SNDSMB ; SSND SHB service? 
q r no 
S 7 ef + 9 CMPW 8°92 #2 3 Ressage at least 2 bytes? 
c F 008 19 BLSSU BA PARAM : Br if n nvalid 
57 3 D B3 1 MOVL #3 : nad ft ry past file ID 
OA ) 8 14 CMPW OCR sf R) Smnsi ADDF IL ; file _request t? 
sy Se bb bbee 1a setae a? ST ee ieee tact tle & 
3 ssume S$ 
08 § Bi F i CMPW Rose #SMRSK_ENTER : Enter ait req oe 
; 2 C 13 BNEQ eos 3 - af nO = Special handling 
009 31 ¢3 19 15$: BRw 0$ $ @ prote seg Stee gines* code 
51 58 36 01 06 0 20$:  ADDL3 #COMMON_HDR,R8,R1 ; cae “site OF TOTAL MESSAGE 
58 08 8} cA 1 cP snScS_ OPrasf,Ri1 : $ YMG 10N 0 T OR ACCOUNTING: MGR MESSAGE? 
51 1& CO OOCF j ADDL2 #<ACM$Q_SYSTIME+8-ACMSB _ProcPRI-$>, R1 
D 4 ; ALLOCATE. SPACE FOR ID DATA 
50 0124 BF 36 D 5 30$: MOVZWL #sss $, INSFMEM, RO ; ASSUME NO STA 
ss & h CE D $ SUBL3 ; ADDRESS MESSAGE » STORAGE 
00000000'9F 53 01 DB CMPL RF elim _STACK ; IN KERNEL STACK? 
98 «(1B a BLEGU ERROR : IF LEQU SHEN YES 
0 : BUILD THE MESSAGE ON THE EXEC STACK. 
SE 53 00 3 MOVL —R3,S ; ALLOCATE THE SPACE 
PUSHR FAoR3 R5> SAVE SIZE AND UCB ADDRESS 


SOD 


R11, (RS)+ : INSERT MESAG 
MOVW  MBX(AP),(R3)+ : INSERT REPLY MAILBOX CHANNEL NUMBER 
MOVL  G*CTLS$GL_PCB,R6 : GET ADDRESS OF PCB 


ASSUME PHDSQ_PRIVMSK EQ 0 


83 608 A 
56 00000000'GF 00 


83 6C B6 7D MOVQ  aPCBSL PHD (RG) (R3)+ — ; INSERT PRIVILEGE MASK 
83  O0BC C6 MOVL pcast 01 OIC (R3)+ INSERT UIC 
63 00000000" 14 MOVC T USERNAME (R35; INSERT USER NAME AND ACCOUNT NAME 
83 IF 2FA SUBB rete. SRIBCR #31, (R3)4; ;' INSERT BASE PRIORIT 
83 94 CLRe : CLEAR SPARE BYTE 
58 408)! CMPW = #MSG$_OPRQST,R11 : ACCOUNTING OR SYMBIONT MESSAGE ? 
2F 13 E 50$ : IF EQL, NO 


TITTTITITITITITITI TLL LL LLL LLL LiLiTliiriiiriiliiiiiiiiititi. 


ASSUME ACMSW_MAILBOX EQ ACMSW_TYPE+2 
ASSUME ACMSQ"PRVMSK EQ ney grant goxe2 


ASSUME ACMSL-UIC EQ ACMS$Q_P 

ASSUME ACMS$T~US E £0 L_UIC+4 
ASSUME ACMSTTACCOUNT EQ ACMST_OSERNAME+12 
ASSUME ACMSB~PROCPRI ACCOUNT + 
ASSUME ACMSL“PI CPRI 

ASSUME ACMSL“STS EQ AC 4 

ASSUME ER FQ S+4 


ACMS ~OuN ACMSL 
ASSUME ACMST"TERMINAL EQ ACASL_OWNER+ 
ASSUME ACHSO” —SYSTIME EQ ACMST L TERMINAL #8 
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-SEP-19 
-SBTTL File protection check 


Be 08:37:46 


S$ Macro V04-00 
ayevs SRCISY SSNDMSG. MAR; 1 


: Stack work area offsets for protection check routine. 


FWA_ATRLIST= 9 

FWA-FIB= 0 

FWA~CHAN= F IBSC_LENGTH+ 
FWA-DVI_DESC= FIBSC“LENGTH+ 
FWA-FIB-DESC= FIBSC-LENGTH+ 
FWA 10SB= FIBSC_LENGTH+ 
FWATRECATTR= = FIBSCLENGTH+46 
FWA_FILE_SPEC= FIBSC -LENGTH* 78, 
FWA-FSPC_LEN= FIB$C- LENGTH 3 
FWA-DVI= FIBSC~ “LENGTHS 4 
FWAWFID= FIBSC “LENG The 386 
FWA-DID= FIBSC-LENGTH#5 5 
FWA-FILE_SIZE= FIBSC~LENGTH+36 
FWA~SPARE= FIBSC ~LENGTHs 368 
FWA_SIZE= F 1BSC_LENGTH+372 


; : Ater Toute list 


File taternerion block 
; Channel assigned to device 
; Descriptor for device name 
; Descriptor for F 

1/0 status lock 
; Record attributes 


File specification 
File specification length 
DVI 

FID 

DID 

File size in blocks 

Spare longword 


; Length of area 


: The SMRSK_ENTER and SMRSK_ADDFIL functions check the protection of the 
; submitted file, and append information to the user's message buffer: 


: fixed are 
user's nessage buffer 


file epee ts ication 


28 byte DVI/FID/DID 
lLongword file size 


60S: 


CMPW —saRB,R7 
BLsSU 1208 


zero byte to stop options scan 


longword allowed file access 


1 word length of tile specification 


Check file protection 
Message contains file ID? 
; Br if not, invalid 


: Check for sufficient space to allocate the work area, and do so. 


MOVZWL #SS$_ Neg a RO 


MOVAB awa ZE(SPS,R1 
CMPL WOR TLSAL, STACK 
BLSSU F308 


MOVL R1,SP 


; Move the DVI/FID/DID to the result area. 


Assume no sp 

Get lowest Ocarese that will 
Compare against that available 
Br if space exceeded 

Allocate the space 


PUSH Save R5 

MOVC 8,-28(R9)CR7],FWA_DVI+ 1+4(8P) Move parameter to the work area 
MOVC 30-28 #0,#F 18$C_LENGTH.FWA_FIB(SP) ; Initialize FIB 

POPL ; Restore R5 

CMPB FWA_DVI(SP) #15 : ghegs Gevicg | name Length 

BGTRU 1208 : Br if inval 


; Scan the options string for a 
3; check for delete access to the 


+ regent. If found, we have to 


be used 


THR HMMMMMmMnh - 
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v04-000 File protection chec - 4 SYS.SRCISYSSNDMSG.MAR; 1 (6) 
56 De Od] a8 | CLRL OR ‘ delet d 
; Assume no delete wante 
ae aged oe 135 4 : MOVA £Bcnooc973.a1 ; Point to start of options string 
52 23 28 C 19 4 5 ADDL R Bp eRe ; Get end of options string 
2 1 Di 019C 439 808 CMPL R1,R ; Check if at end 
F 1E O19F 440 BGEQU 156$ : Branch if done 
50 9A QIA1 441 MOVZBL (R1)+,RO0 ; Get next option byte 
40 BF 50 91 O1A4 Ane CMPB se RO, #64 : Check option validity 
1F 1E QIAB 44 BGEQU 1206$ ; Branch if out of range 
01 29 91 1AA 444 CMPB RO, #SMOSK_DELETE ; Check for delete option 
56 01 bo OIAD ade BOVE 308 E Rote detane costed 
; Note delete wante 
53 FE49 CF40 9 1Be 209 90$: CVIBL OPfION_SIZECROI,R3 ; Get size of option text 
os 7 1B 448 BGEQ 110$ ; Branch if fixed 
53 81 QA QIBA 449 100$: MOVZBL (R1)+,R3 ; Else counted string - get size 
bp 13 01BD 450 BEQL age ; Branch if end of params 
, ey CO O1BF 451 1108: ADDL R3,R1 ; Skip option text 
2 65091 pice 128 CMPB RO ,#SMO$SK_PARAMS ; Check for parameter option 
D5) «612 «01C5 «45 BNEQ  80$ : Branch if not 
Fi 11 bie tee BRB 100$ ; And loop for next parameter 
1C9 228 3; Helper branches. 
109 457; 
FEAD 31 01C9 458 208: BRW BADPARAM 
FEAD 31 Bice re 130$: BRW ERROR 
O1CF 461 ; Get a pointer to the DVI descriptor, and where the channel will be stored, 
Bice rh 3 and initialize the descriptor. 
0180 CE D4 OICF 464 1508: CLRL_ FWA_SPARE(SP) ; Clear spare longword 
50 56 AE 9E O1D3 465 MOVAB FWA_DVI_DESC(SP),RO ; Point to DVI descriptor 
53 54 AE 9—E 0107 466 MOVAB FWA_CHAN(SP) ,R3 ; Point to channel 
60 0190 CE 9A QO1DB 467 MOVZBL FWA_DVI(SP), (RO) ; Store device name Length 
04 A0 0191 CE 9E O10 468 MOVAB  FWA-DVI+1(SP),4(RO) : Store device name address 
O1E6 470 ; Assign a channel to the device. 
O1E6 471 ; 
O1E6 $f6 SASSIGN_S - 
QO1E6 «47 DEVNAM=(RO), - ; Device name 
bieg 474 CHAN=(R3) ; Output channel number 
D650 =E9 Bite iS BLBC RO,130$ ; Br if not assigned 
Bite ‘i ; Build the FIB, the FIB descriptor, and the ACP attributes List. 
50 6E 9E OIFe 135 MOVAB FWA_ATRLIST(SP) ,RO ; Point to attribute List 
51 5E AE 9E 1F9 480 MOVAB FWA_FIB DESC(SPS ,R1 ; Point to FIB descriptor 
52 66 AE 9E 1FD «= 481 MOVAB FWA_IOSB(SP) R2 ; Point to 10SB 
54 «14 AE OE 01 4 : MOVAB FWATFIB(SP) ,R4 : Point to FIB 
64 D4 ; 484 CLRL FIBSL_ACCTL(R4) > Clear access control 
04 A4 B40 cE D 485 MOVL FWA_FID(SP) ,F IBSW FID(R4S ; Store file ID 
08 AG O14 cE 8 p 4 : MOVW FWA E1D+4 (SP) FIBSW_FID+4(R ) 
1A 56 =O 1 4 BLBC R6, 1608 ; Check if delete access needed 
A AG B16 cE D 16 4 8 MOVL FWA_DID(SP) FIBS$W_DID(R4$ ; Store directory ID 
—E AG O1AA i B 1 4 MOVW FWA D1D+4 (SB) .FIBSW_DID+4 (Ra) 
Hs AG D § 490 MOVL #ARASM_DELETE hye ALT nah TS ai ; Store alternate access mask 
8 A4 8 6 491 MOVL #F IBSM ALT_REQ,FIB C_STATUS(R4) ; Note alternate access required 


14 A4 = 0800 8F 
61 opyongee 8F 
64 


60 on Bh nae 8F 

AQ 185 AE 

08 x. ”"g0ee 91 QO 8F 
P86 AD 

10 A 


5 

50 5 

50 664A 

49 5 

O1AC CE 76 AE 10 


7A AE 
O1AC CE 


57 O08E ge 
OOFE 8F at 
57. OOFE rf 
QO18E CE 7? 
56 OOOO00FE 8F ef 

57 


0094 CE46 0094 CE 


55 

5E O08F CE46 
6E 

FDEF 


= SEND MESSAGE overen SERVICES 
File protection check 
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SEI 


33:76 AX/VMS Macro V04-00 
SYS.SRCISYSSNDMSG.MAR; 1 


MOVW #FIBSM_FINDFID,FIBSW_NMCTL(R4) ; Search fur file ID 


160$: MOVL #FIBSC_LENGTH,(R1) 
MOVAB (R4),4TR1) 
MOVL #<ATRSS_RECATTR+<ATRSC_R 
MOVAB FWA _RECATTR(SP) ,4(RO) 
MOVL #<256+<ATRSC_FILE_SPECA1 
MOVAB FWA_FILE_SPEC(SP)712(RO) 


16(RO) 


; Initialize FIB descriptor 


ECATTRA@16>>, (RO) 
6>>,8(R0) 


> Access the file to get necessary information. 


$Q10W_S - 
EFN=#31 
CHAN=(R$), = 
FUNC=#10$_ACCESS, 
10SB=(R2)> - 
Pi=(R1), = 
P5=RO 
HL RO 
SDASSGN_S - 
CHAN=(R3) 
OPL 
BLBC RO 
MOVZWL rua, [os0«sP), RO 
BLBC 
; Compute the file size from the record 
ROTL 


WA, FILE_SIZE(S 


;_Br 
TSTW FWA_RECATTR+FATSW_FFBYTE(SP) 


DECL FWA_FILE_SIZE(SP) 


; Slide the file specification up adjacent to the count, and finish it by adding 


: the zero byte. 


i708: MOVZWL FWA PALE. SPEC(SP) ,R7 
CMPW )OR7, #254 
LEQU 1 bs 
MOVZWL #254,R7 
180$: MOVW R7,FWA_FSPC_LEN(SP) 
SUBL3 R7.#25%,R6 
PUSH RS 
MOVC3 =R?, - 
FWA_FILE_SPEC+6(SP) 
FWATFILE~SPEC+6(SP)(R6J 
OPL = RS 
MOVAB FWA_FILE 
CLRB = (SPT 
BRW 20$ 


: Helper branches. 


Event flag 

Channel maber 

Read attributes function 
1/0 status block 

Address of FIB descriptor 
Address of attribute List 
Save $Q10W status 


Deassign the channel 

pee ie"s status from access 
r if $Q10W failed 

Bick up status from 10SB 

Br if operation failed 


attributes. 
Move EFBLK to file size area and 


#16, s 
FWA A“RECATIRGEATSL _EFBLK(SP), ; convert to unswapped 


if EFBLK is zero 

; Test first free byte 
; Br if nonzero 

; Adjust EFBLK 


Get file specification length 

Check maximum supported Length 
r if in range 

Short ten 

Set length in message 

poneuts bias 


Slide item up 


e R5 


_SPEC+1(SP)CR6), ipte 3 y t- unused stack 


; Zero byte to stop options scan 
; Return to mainline processing 
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D7 
FDA2 31 $e i 190$:  BRW ERROR 
DA 2 .DSABL LSB 


= 
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v04-000 File protection check g-SEb | 3b2 8g: 33 i? YeYs. SRCIS SSND MSG.MAR; 1 ° (7) 
DA 
DA : .SBTTL SEND MESSAGE ROUTINE 
DA ; SENDMSG = KERNEL MODE MESSAGE SEND ROUTINE 
DA : FUNCTIONAL DESCRIPTION: 
DA THIS ROUTINE RUNS IN KERNEL MODE AND SENDS THE MESSAGE TO THE 
DA TARGET MAILBOX. 
DA INPUTS: 
DA O(AP) = SIZE OF MESSAGE 
DA 4(AP) = ADDRESS OF THE MESSAGE 
8(AP) = MAILBOX UCB ADDRESS 


gE 


gf 
6 
e 
63 i 
8S 
Bk Ee 
0 DA 10 ; OUTPUTS 
0 DA fg i RO = STATUS OF THE OPERTATION 
0 DA 204 STATUS CODES RETURNED: 
DA 226 SS$_NORMAL = SUCCESSFUL OPERATION 
0 DA 57 SS$"IVCHAN = SPECIFIED CHANNEL INVALID 
DA 578: SSS"MBTOOSML = MESSAGE EXCEEDS MAILBOX SIZE 
020A 579: SS$~DEVOFFLIN = NO LISTENER FOR SYMBIONT OR JOB CONTROLLER 
O2DA 380 OPCS _NOPERATOR = NO LISTENER FOR OPERATOR REQUEST 
O2DA 581 SS$_INSFMEM = INSUFFICIENT MEMORY FOR THE REQUEST 
O2DA 288 : SS$"NOPRIV = PROCESS DOES NOT HAVE READ ACCESS TO SPECIFIED MAILBOX 
6 DA 283 SS$~DEVNOTMBX = SPECIFIED CHANNEL IS NOT TO MAILBOX 
DA 85 ENDMSG: : 
0090 O2DA 6 .wORD 0 t SAVE NO REGISTERS 
55 04 ag 20 D¢ 8 MOVL  4(AP),R5 : GET MESSAGE ADDRESS 
50 «(02 A ¢ 0266 6-588 MOVZWL 2(R5).RO : GET CHANN 
33 OC«W 0 E46 589 BEQL 108 : IF EQL THEN NO REPLY 
54  00000000'EF 00 £6 590 MOVL §§ SCHS$GL_CURPCB,R4 : GET CURRENT PCB 
00000000'GF 16 0 Ep 94 JSB G*IOCSVERIF YCHAN ; CHECK OUT CHANNEL NUMBER 
3150 €9 OF 36 BLBC RO, 208 : BR IF ERROR 
58 04 AC DO O2F6 59 MOVL  4(AP),R3 t GET MESSAGE ADDRESS 
55 61 00 FA 59% MOVL  CCBSL. UCB CR R1),R5 : GET UCB OF REPLY MAILBOX 
02 A3 54 AS : FD «595 MOVW  UCBSW7U TERS} .2¢ (R3) ; INSERT UNIT ER OF MAILBOX 
0 00 4 8F 3¢ 02 3 MOVZWL wSSS geWN x" RO ; ASSUME DEVICE NOT MAILBOX 
18 38 AS) 14 Fl 0 9 BBC #DEVSV Mis pease DEVCHAR(RS) ,20$; BR IF NOT MAILBOX 
0000000 “gf 6 98 JSB GPEXESCHKROACCES” ; CHECK ACCESS 
comeoe? AE Halt tHE RictRcamraces | le Seehat Ait 
0 % E9 18 6 a BLBC 80.208 : AND RETURN IF NO ACCESS 
5 A 1 " MOVL «= CAP) , RS ADDRESS UCB OF MAILBOX 
; 53°° ac op ; 4 4 MOVO (AP) ,R3 : GET SIZE AND ADDRESS OF MESSAGE 
01 10 605 BSBB ss EXE SSENDMSG : SEND MESSAGE 
? 606 20S: 
04 7 6 RET 


H 14 

SYSSNDMSG = SEND MESSAGE SYSTEM SERVICES 16-SEP-1984 :35:3 AX/VMS Ma v04-00 P 1 SY 
02-000 SEND MESSAGE ROUTINE BreEp abe OSser ice PONS MES Macca MoecOe k., Page 13, VO 

09 ;+ 

} 3 

12 ; INPUTS: R3 = message size 

15 3 R4 = message address 

! ; R5 = UCB address 

18 i 

18 EXESSENDMSG:: 


3 Check the reference count in the UCB to see if the 

; mailbox has a Listener. Note that both the JOB CONTROLER 

3 mailbox and the OPERATOR mailbox have an initial ref. count 
; of 1. Therefore, if there is a Listener at the mailbox, 

; the reference count must be greater than 1. 


CMPW eae arene? ; DOES A LISTENER EXIST? 
BLEQU 0$ ; BRANCH IF NOT 


The message must faulted in before calling EXESWRTMAILBOX. 
The manner in which this is done verges on the magical. 
For a detailed explanation, see below. 


OOCCCOCOCOCCOOCOCOCOCOCOOOCOCOOCOO £9 


First round the address of the message (on the EXEC stack) 
DOWN to the nearest page boundary. Then raise IPL to ASTDEL 
to block AST delivery. This step is ee ae to avoid 
Segereunts incurred during the execution of the AST routine. 

ince we now have a page-aligned base address of the message 
in R2, we can use one instruction to fault in the pages, 

two pages with each operand referenced. This is done by 
choosing the operand address and instruction operand context 
so that the operand is split across a page boundary. 
Note that if the size (rounded up) in pages of the message 

s N, then the maximum number of pages that must be faulted 
in is N+1. If the message size is small, and the pepsege 
resides near the end of the EXEC stack, it is possible that 
we may overrun the EXEC stack. This is ok, because the 
KERNEL stack follows the EXEC stack, and we're in KERNEL 
mode right now (remember?). Note that after the KERNEL 
stack is a page that is inacessable. As a result, the message 
ie es) must not exceed the number of pages in the 

stack. 
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TOTP Te TOTO Te Tere Tere rere rere rerererere re Pere ye te ty 
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MEAN OS OONAUES WN 0 OONOUS WMO Oe 


52. 54 OO0001FF 8F CB BICL3 #*XO1FF,R4,R2 ; ROUND ADDRESS DOWN 
SETIPL #IPLS ASTDEL : BLOCK AST DELIVERY 
O3FF C2. O1FF C2. CMPW «5511 (R2), 102 3(R2) : FAULT IN 4 CONTIGUOUS PAGES 
00000000'GF 16 JSB G“EXESWRTMAILBOX + WRITE MESSAGE 
SETIPL # : ENABLE AST DELIVERY 
01 50 £9 BLBC —s. RO, 108 : BRANCH IF ERROR 
RSB 
ING 
PECI 
P 
oT 


DPDREDPDPDAEALPA AR AAA DAA A DAA AA AAA AA AAA AAA AAA AAA AAAAAAAAAA AAA AAA AOAAOD 


DDE DPDAD Pras Be Be BBB EE WNW NII WIRPONPOPOPOPON PONY — 
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50 §=60084 er 
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50 §=©00058061 BF 


38 

54 00000000'EF 
12 24 A4 

50 = 03 

7E 

00000000 ' GF 

38 

A2 

38 
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ly SERVICES dns 1 mh 9 06:33:76 eet Macro V04-00 Page 1§, SY 


“SEP=19 


0$: CMPW 88 #SS$_INSFMEM 
30$ 


BEQL 
NO LISTENER IS PRESENT. 


SYS.SRCISYSSNDMSG.MAR; 1 ( 


; epee had MEMORY? 
; BRANCH IF YES 


IF THE SPECIFIED MAILBOX IS THE OPERATOR rete THEN 


THE SENDER IS INFORMED THAT NO OPERATOR IS PRESENT. 
MOVZWL #SS$_DEVOFFLINE,R ; ASSUME NO LISTENER 
CMPB ss #M@SGS_OPRQST, HE RO ; OPERATOR? 
BNEQ $ IF NEQ THEN NO 
MOVL § #OPC$_NOPERATOR,RO : SET NO OPERATOR SUCCESS STATUS 
20$: RSB : RETURN 
: THERE WAS INSUFFICIENT NONPAGED POOL TO SEND THE MESSAGE. 
: IF THE PROCESS HAS RESOURCE WAIT MODE ENABLED, WAIT 
> THE POOL TO FREE UP. IF NOT, THEN RETURN THE “ERROR STATUS. 
$0$: 
PUSHR #*M<R3,R4,R5> ; SAVE SIZE AND ADDRESS OF MESSAGE 
MOVL  SCHS$GL_ CURPCB R4 : GET CURRENT uPROCESS PCB ADDRESS 
BBS #PCBSV “SSRW : IF SET, NO WAIT 
rene gre tnay. bos : 
MOVZWL ate “NPDYNMEM, RO > SET RESOURCE WAIT NUMBER 
MOVPSL =(SP) : PUSH PSL ON STACK 
SETIPL #IPL$_SYNCH : RAISE IPL TO SYNCH 
JSB G*SCHSRWAIT + WAIT FOR NONPAGED MEMO 
POPR #*M<R3,R4,R5> : RESTORE SIZE AND ADDRESS OF MESSAGE 
; AND UCB ADDRESS 
6 ee BRB EXESSENDMSG : TRY NEAIN 
8  POPR  #*M<R3,R4,R5> : RESTORE SIZE AND ADDRESS OF MESSAGE 


AND UCB ADDRESS 


SYSSNDMSG 
v04-000 


Fz 
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; -SBTTL EXESOPRSNDERL = OPERATOR SEND MESSAGE TO ERROR LOGGER 
EXESOPRSNDERL = OPERATOR SEND MESSAGE TO ERROR LOGGER 
FUNCTIONAL DESCRIPTION: 


om 
mo 


ING OF A COMMON HEAD 


ER 
SPECIFIED TEXT AND 7 TO THE ERROR LOG FORMAT PROGRAM. 


SQN 
omme 
a tee) 
m 


2 3 BOO OOO 


INPUTS: 
MSG(AP) = ADDRESS OF THE MESSAGE DESCRIPTER 
OUTPUTS: 
RO = STATUS OF THE OPERATION 
STATUS CODES RETURNED: 
SS$_NORMAL = SUCC 
SS$- INSFMEM = INS 
ht ACCVIO = ACCE 
-ENABL LSB 
sicmiemiuaa eh ; SEND TO ERROR LOGGER 
WORD “M<R2,R3,R4,R5> : 


PUSHL S“#EMBSK_OM ; SET MESSAGE TYPE TO OPERATOR MESSAGE 
BRB 10$ : JOIN COMMON CODE 


FUL_ OPERATION 
ICIENT MEMORY FOR THE REQUEST 
VIOLATION ON BUFFER 


“cm 


Sete Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
; + 
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v04-000 


muon 


om 
zz 
mo 


ae 
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-SBTTL EXESNETSNDERL = NETWORK SEND MESSAGE TO ERROR LOGGER 
EXESNETSNDERL = NETWORK SEND MESSAGE TO ERROR LOGGER 
FUNCTIONAL DESCRIPTION: 
END TO ERROR LOGGER SYSTEM SERVICE 
ON PROCESS. 
— CONSISTING OF A_ COMMON H 


HEADER 
D THEN SEND IT TO THE ERROR LOG FORMAT PROGRAM. 
DRESSED CHECKED. 


Kk 16 

NETWORE SEND MESSAGE TO ‘SasEP-19RG OS:e7:4g PeREMes Macca vOe—OO Page | 
INPUTS: 

MSG(AP) = ADDRESS OF THE MESSAGE DESCRIPTER 
OUTPUTS: 

RO = STATUS OF THE OPERATION 
STATUS CODES RETURNED: 

SS$_NORMAL = SUC 


CES 
SSS_INSFMEM = INSUF 
SS$_ACCVIO - ACCESS 


FUL OPERATION 
ICIENT MEMORY FOR THE REQUEST 
VIOLATION ON BUFFER 


EXESNETSNDERL: : ; SEND TO ERROR LOGGER 
-WORD “M<R2,R3,R4,R5> : 
PUSHL S*#EMBSK NM ; SET MESSAGE TYPE TO NETWORK MESSAGE 
BRB 10$ ; JOIN COMMON CODE 


L 14 
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: ~SBTTL EXESSNDERL = SEND MESSAGE TO ERROR LOGGER 
EXESSNDERR = SEND MESSAGE TO ERROR LOGGER 
FUNCTIONAL DESCRIPTION: 
THIS oe ea ly ty THE SEND TO ERROR LOGGER SYSTEM SERVICE. 
pe ACTION IS Me BUILD A MES + CONSISTING OF A_ COMMON HEADER 
D THE USER SPE ciFlep TEXT THEN SEND IT TO THE ERROR LOG FORMAT PROGRAM. 
THE SPECIFIED MESSAGE IS ADDRESSED CHECKED. 
INPUTS: 


MSG(AP) = ADDRESS OF THE MESSAGE DES . IPTER 
R4 = ADDRESS OF CURRENT PROCESS PCB = COURTESY OF CMKRNL 


om 
ar 4 
zo 
=J 
mz 
zn 
cron 
ow 
‘> 
a 


me 
po 
mo 
m 
zu 
o~= 


OUTPUTS: 
RO = STATUS OF THE OPERATION 

STATUS CODES RETURNED: 

OPERATION 

ENT MEMORY FOR THE REQUEST 

LATION ON BUFFER 

ES NOT HAVE REQUIRED PRIVILEGE 

19h  — ; SEND TO ERROR LOGGER 

795 .WORD “M<R2,R3,R4,R5> REGISTERS USED 

79 MOVW  #SS$_N OPRIV. “RO ASSUME SUER HAS NO PRIVILEGE 

79 IFNPRIV BucCAK 3 0$ BR IF NO PRIVIL 

29 PUSHL Soi $$ SET MESSAGE TYPE CODE 

800 : O(SP) = MESSAGE TYPE CODE 

80¢ ios: MOVL MSGC(AP),R1 : GET A 

JSB CrEAESPROBER, DSC : CHECK 

BLBC : BR IF 

: R1<0:15> = SIZE, R2 = ADDRESS OF BUFFER 

, MOVZWL R1,R1 


MOVa ——sR1_ RG : 
ADDL  #EMBSK_SS_LENGTH+3,R1_: 
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JSB AAPA ERELEASERE. : RELEAS 
MOVL § S*#SS$_NORMAL,RO : SET SU 


RET ; 
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in device UCB SEP-1984 SYS.SRCISYSSNDMSG.MAR; 1 
aa -SBTTL SETOPR = set OPR bit in device UCB 
: EXESSETOPR 


Functional Descripton: 


This routine will set or clear the OPR bit in a 
terminal, remote terminal, or mailbox UCB. 


Input: 


DEVNAM(AP) = Address of device name descriptor 
BIT_STATE(AP) = Value of the OPR bit. Must be 0 or 1. 


Implicit Inputs: 
The caller has OPER privilege. 
Output: 
None. 
Implict Outputs: 
R1 = address of device UCB 
Routine value: 
RO = The status of the operation. Possible values Listed below. 


SS$_ NORMAL - The operation was completed. 
SS$_ACCVIO - The device name descriptor could not be accessed. 
S$S$_BADPARAM - The bit state was not 0 or 1. 
SS$_I1VDEVNAM - The device name specified was not valid. 
SS$_NONLOCAL - The specified device is not local. 
SS$_NOPRIV - The caller does not have OPER privilege. 
SS$_NOSUCHDEV = The specified device does not exist. 
> Local symbols 
DEVNAM = 4 : Offset to device descriptor parameter 
BIT_STATE = 8 3; Offset to OPR bit state parameter 


-ENTRY EXESSETOPR, “M<R2,R3,R4,R5,R6,R7,R8,R9,R1ID,R11> 
Check the input parameters. 


Make sure the caller has OPER privilege. 


MOVZWL #SS$_NOPRIV,RO ; Assume insufficeint privilege 
MOVL GPCICSGL _PCB.RG : Get current process PCB address 
IFNPRIV OPER,1 :; Branch if no OPER privilege 
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: PROBE the device name descriptor for read access. 
; The actual device name string is PROBEd by LOGSTRNSLOGNAME 
‘ during processing by IOCSSEAPCHDEV. 


MOVL  DEVNAM(AP) ,R3 
MOVZWL 4#SS$ Actv10,RO 
IFNORD #8, (R3),13$ 


: Check the bit_state parameter. 
MOVZWL #SS$_BADPARAM,RO 
BITL 


#*C17BIT_STATE (AP) 
20 


Get the device descriptor address 
Assume not readable 
Check descriptor for readability 


Assume value not 0 or 1 

Test for all but low bit set 
Branch if yes 

Exit with error 


BEQL 
3$: RET 


Lock the 1/0 database for read access and search for the device. 

f the device exists, and it is a terminal, remote terminal or 
mailbox, then set the OPR bit as indicated. A side effect of 
locking the 1/0 database is that the IPL is raised to IPL$_ASTDEL. 


0$: JSB G*SCHSIOLOCKR Lock I/0 database for read access 


MOVL R3,R : Get device name descriptor address 
JSB G* fOCSSEARCHDEV + Search for the device 
BLBC RO,UNLOCK ; Branch if error 


: Check the device type. R1 now contains the device UCB address. 


MOVZWL #SS$_IVDEVNAM,RO Assume invalid device 


BITL  #DEVSM_TRM'DEVSM_MBX,- ; Check device type 
UCBSL_BEVCHAR(R1) : 
BEQL UNLOCR ; Branch if not an operator type device 


: Set the OPR bit as indicated. 


Set normal return status 
Set or clear? 

Branch if clear desired 
Set the OPR bit 


MOVZWL #SS$_NORMAL,RO 
TSTL Bit STATE CAP) 


BBSS #DEVSV_OPR,- 
UCBS$L_BEVCHAR(R1) ,25$ 
5$: BRB ocr 


UNL 
O$: BBCC #DE 


Exit 
V$V_OPR,- Clear the OPR bit 
UCBSL_BEVCHAR(R1) ,UNLOCK 


UNLOCK: PUSHL R Save return status 
JSB G*SCHSIOUNLOCK Unlock the I/0 database 
SETIPL Allow all interrupts 
MOVL (SP)+,RO Restore return status 


Return 
~END 
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Symbol table =SEP=1984 03:57:34 SYS.SRCISYSSNDMSG.MAR; 1 (9) 
$$T1 = 9 1 FIBSL_ALT_ACCESS 2 ; 
ACM$B_PROCPRI = 4 FIBSL_STATUS = 

ACMSL_OWNER = g FIBSM_ALT_REQ = 

ACMSL_PID 2 FIBSM_FINDFID 2 0 
ACMSL_STS 2 C FIB$W_DID = A 

CMSL_UIC = C FIBSW_FID s 4 

CMSQ"PRV 2 8 4 FIBSW-NMCTL = 14 
ACM$Q_SYSTIME = C FWA_ATRLIST = 000 90 
ACM$T_ACCOUNT 2 0001C FWA_CHAN 2 4 

ACMST_ TERMINAL = 0 88 34 FWA_DID = 8 148 
ACMST_USERNAME = 1 FWA_DVI = 0000019 
ACM$W_MAILBOX = 8 9 FWA_DVI_DESC 2 9 38036 
ACM$W_TYPE = FWA_FIB = 14 
ARM$M_DELET = 8 8 FWA_FIB_DESC = aS 
TRSC_FILE_ SPEC = 000 E FWA_FID = gon TA 
ATRSC_RECATIR = 844 4 FWA_FILE_SIZE = 000001AC 
ATR$S_RECATTR = 00000020 FWA_FILE_SPEC = HOOD eE 

ADPARAM 00000079 R 01 FWA_FSPC_LEN = 000001 3 
BIT_STATE = 00000008 FWA_10SB = 0000006 
BUICDMSG 0000007D R 01 FWA_RECATTR = 0000006E 
CCBSL_UCB = 00000000 FWA_SIZE = 00000184 

C HDR = 00000026 FWA_SPARE = 0000018 
CTLSAL_STACK RRRRARRE 01 10$_ACCESS = 0000003 

CTLSGL eeerenee = X (01 10C$GW_MAXBUF eeeeeeee = X 01 
CTL$T_OSERNAME eeekeene 01 IOCSSEARCHDEV eeeneeee XX 01 
DEVSM_MBX = 00100000 IOCSVERIF YCHAN teeneeee = X (1 
DEVSM_TRM = 00000004 IPL$_ASTDEL = 0000000 
DEVSV_MBX = 00000014 IPL$_SYNCK = 0000000 
DEVS$V_OPR = 4 4 MBX = 00000008 
DEVN = 4448 4 MSG = 00000004 
EMBSB_SS_MSGTXT = 00 Hae: MSG$_OPRQST = 00000008 
EMBSC_SS = 000000 MSG$_SNDACC = 0000000A 
EMBSK_NM = 0000002A MSG$_SNDSMB 2 eae 
EMBSK_OM = 00000029 OPC$-NOPERATOR = 0005 pet 
EMBSK_SS_LENGTH = 00000012 OPTION_SIZE 00000000 R 01 
EMBSW_SS_ENTRY = 00000004 PCB$B_PRIB = 0000002F 
EMBSW-SS_MSGSZ = 00000010 PCBS$L_EOWNER = BONN nee 
ERLSACLOTEMB eeeeeree = X 01 PCBSL_EPID = 00000064 
ERLSRELEASEMB eeeeeere = X 01 PCB$L_PHD = 0000006C 
ERROR 0000007C R 1 PCBSL_STS = SOROS C 
EXESCHKRDACCES teerener YX 1 PCBSL_UIC = BR8 OBC 
EXESCHKWRTACCES etererer = § Xx 1 PCB$Q_PRIV = Be 0084 
EXESGQ_SYSTIME teeeeere =X 1 PCB$T_TERMINAL = 00000044 
EXESNETSNDERL 00000 3eF RG 1 PCBSV_SSRWAIT = os 
EXESOPRSNDERL 0 9 RG 1 PHD$Q-PRIVMSK = 

EXESPROBER_DSC aereeere § x 1 PRS_IPL P 01 
EXESSENDMSG 0 28 RG 1 PRVSV_BUGCHK = 0000001 
EXESSETOPR E5 RG 1 PRV$V_OPER = 38 Ot 
EXESSNDACC 40 RG 1 RSNS_RPDYNMEM = 0000000 
EXESSNDERR 95 RG 1 SCHSGL_CURPCB eeeeeeee =X 1 
EXESSNDOPR $8 RG 1 SCHSIOCOCKR eeeeeeee 86 6X 1 
EXESSNDSMB RG 1 SCH$IOUNLOCK eeereree x 1 
EXESWRTMAILBOX eeeeneee 8 6X 1 SCHSRWAIT eeereeee 8 x 1 
FATSL_EFBLK s 9 98 SENOMSG 0 AR 1 
FATSW_FFBYTE s SMO$K_DELETE = 1 

F IBSC_LENGTH = 9 4 SMOSK~ PARAMS 2 6 
FIBSL~ACCTL = 0000000 SMRSK_ADDF IL s 000A 


SSDASSGN 
SYSSGL_JOBCTLMB 
AES oat OPRMBX 


Initialization 
Command processing 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 
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144 
0000024 
0000001 


kkeeeeee GX 0 
keekeeee GX 
keekeeee GX 
ekeetker x 
ReeKeKeE 0 
keakkeee GX 0 


0000038 
000005C 
00000054 
00000447 R 01 
peeececcne See + 
' Psect synopsis H 
Allocation PSECT No. Attributes 


00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
00000456 ( 1110.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR- EXE 
00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE 


$eweceeceeecesceccescecce$ 


H Performance indicators : 


Page foults CPU Tine Elapsed Tine 
35 90:00: 00.07 00:00: 0.39 
128 0:00:00.57 0:00: 1-68 
561 09:0 : 3:79 BOR: 6! 9 
g 0: 703.95 0: 0: 4.17 
17 :00:04.49 0:00:05.03 
17 09: 3 0.15 ee 
1 : 3°08 0: : 06 
919 00:00:88:04 00:00:38. 


ing set Limit was 1950 pages. 

ytes (264 pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space allocated to hold 2544 non-local and 31 local symbols. 
in Pass 1, producing 20 object records im Pass 2. 


source Lines were read 
43 pages of virtual memory were used to define 42 macros. 
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RT NOVEC BYTE 
WRT NOVEC BYTE 
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Macro Library name 


“$255$DUA28: CSS. 0B} LIB we 1 15 
~$255$DUA28: CSYSLIBJSTARLET MLB; 2 4 
TOTALS (all Libraries) 9 
2757 GETS were required to define 39 macros. 


There were no errors, warnings or information messages. 
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